home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
MENU_UTL
/
MENUUN
/
MENU.PAS
next >
Wrap
Pascal/Delphi Source File
|
1994-12-17
|
2KB
|
67 lines
Program MenuDemo;
Uses Menus, Dos, Crt;
Var
Menu : MenuRec;
ItemSelected : Integer;
Begin
CreateMenu(Menu);
AddToMenu(Menu, 'DISPLAY MEMBERS');
AddToMenu(Menu, 'ADD A MEMBER');
AddToMenu(Menu, 'DELETE A MEMBER');
AddToMenu(Menu, 'MEMBER FINANCES');
AddToMenu(Menu, 'QUIT');
ShowMenu(Menu, NW, ItemSelected);
TextBackGround (Black);
TextColor (White);
ClrScr;
Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
Readln;
ShowMenu(Menu, N, ItemSelected);
TextBackGround (Black);
TextColor (White);
ClrScr;
Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
Readln;
ShowMenu(Menu, NE, ItemSelected);
TextBackGround (Black);
TextColor (White);
ClrScr;
Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
Readln;
ShowMenu(Menu, W, ItemSelected);
TextBackGround (Black);
TextColor (White);
ClrScr;
Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
Readln;
ShowMenu(Menu, C, ItemSelected);
TextBackGround (Black);
TextColor (White);
ClrScr;
Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
Readln;
ShowMenu(Menu, E, ItemSelected);
TextBackGround (Black);
TextColor (White);
ClrScr;
Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
Readln;
ShowMenu(Menu, SW, ItemSelected);
TextBackGround (Black);
TextColor (White);
ClrScr;
Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
Readln;
ShowMenu(Menu, S, ItemSelected);
TextBackGround (Black);
TextColor (White);
ClrScr;
Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
Readln;
ShowMenu(Menu, SE, ItemSelected);
TextBackGround (Black);
TextColor (White);
ClrScr;
Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
Readln;
End.